home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.02 Feb 88 / pascal sources / Plot Project Stuff / Misc < prev    next >
Encoding:
Text File  |  1988-01-04  |  675 b   |  35 lines  |  [TEXT/PJMM]
  1. UNIT Misc;
  2.  
  3. INTERFACE
  4.  
  5.     USES
  6.         ROM85, PrintTraps, PlotGlobals;
  7.  
  8.     PROCEDURE doMessage (message0 : str255;
  9.                                     message1 : str255;
  10.                                     message2 : str255;
  11.                                     message3 : str255);
  12.  
  13. IMPLEMENTATION
  14.  
  15.     PROCEDURE doMessage; {(message0 : str255}
  16.                                     {message1 : str255}
  17.                                     {message2 : str255}
  18.                                     {message3 : str255)}
  19.         VAR
  20.             dialogP : DialogPtr;
  21.             item : integer;
  22.     BEGIN
  23.         ParamText(message0, message1, message2, message3);
  24.         dialogP := GetNewDialog(MessageDialog, NIL, pointer(-1));
  25.         IF dialogP = NIL THEN
  26.             BEGIN
  27.                 SysBeep(5);
  28.                 ExitToShell;
  29.             END;
  30.         initCursor; {change to arrow}
  31.         ModalDialog(NIL, item);
  32.         DisposDialog(dialogP);
  33.     END;
  34.  
  35. END.